home *** CD-ROM | disk | FTP | other *** search
/ Trees of Indiana / Trees of Indiana.iso / pc / data / quercus / bjo.dxr / Internal_29.ls < prev    next >
Encoding:
Text File  |  2002-07-30  |  834 b   |  41 lines
  1. on mouseWithin
  2.   cursor(280)
  3. end
  4.  
  5. on mouseLeave
  6.   cursor(0)
  7. end
  8.  
  9. on mouseDown
  10.   tell the stage
  11.     RegWin = window("regions")
  12.   end tell
  13.   tell the stage
  14.     myRect = window("regions").rect
  15.   end tell
  16.   tell the stage
  17.     myWidth = getAt(myRect, 3) - getAt(myRect, 1)
  18.   end tell
  19.   tell the stage
  20.     myHeight = getAt(myRect, 4) - getAt(myRect, 2)
  21.   end tell
  22.   tell the stage
  23.     myLocH = ((the stageRight + the stageLeft) / 2) - (myWidth / 2)
  24.   end tell
  25.   tell the stage
  26.     myLocV = ((the stageTop + the stageBottom) / 2) - (myHeight / 2)
  27.   end tell
  28.   tell the stage
  29.     myNewRect = rect(myLocH, myLocV, myLocH + myWidth, myLocV + myHeight)
  30.   end tell
  31.   tell the stage
  32.     window("regions").rect = myNewRect
  33.   end tell
  34.   tell the stage
  35.     window("regions").windowType = 3
  36.   end tell
  37.   tell the stage
  38.     open(RegWin)
  39.   end tell
  40. end
  41.